1 IF GH>2 THEN 20
2 IFGH<>.THEN14
4 DIML(26):DIMS(16)
6 PRINTCHR$(8):PRINTCHR$(142)
8 POKE53280,.:POKE53281,.:PRINT"[147][158]";:C=.
10 GOSUB 700
14 IFGH=.THENGH=1:LOAD"MACH",8,1
16 IFGH=1THENGH=2:LOAD"CH",8,1
18 IFGH=2THENGH=3:LOAD"SPRITES",8,1
20 POKE53280,5:POKE53281,6:PRINTCHR$(142);
22 T1$="[176]":T2$="[174]":T3$="[173]":T4$="[189]":T5$="[192]":T6$="[221]"
24 S$=""
26 PRINT"[147]"LEFT$(S$,2)" [158]"T1$;:FORX=1TO36:PRINTT5$;:NEXT:PRINTT2$
28 PRINTLEFT$(S$,3)" [158]"T6$""T1$;:FORX=1TO34:PRINTT5$;:NEXT:PRINTT2$;"[158]"T6$
30 FORX=1TO19:PRINT" [158]"T6$""T6$SPC(34)T6$"[158]"T6$:NEXT
32 PRINT" [158]"T6$""T3$;:FORX=1TO34:PRINTT5$;:NEXT:PRINTT4$;"[158]"T6$
34 PRINT" [158]"T3$;:FORX=1TO36:PRINTT5$;:NEXT:PRINTT4$
36 PRINT"[158]":A$=" SILLY  SNAKE [146]":GOSUB850
38 PRINT"[153]":A$="A GEORGE R. DECKER GAME ":GOSUB850
40 PRINT:A$="(C)1988 UPTIME MAGAZINE ":GOSUB 850
52 PRINT"                     "
54 PRINT" F1...TYPE A SNAKE   [144] "
56 PRINT" F3...BLAST A SNAKE  [144] "
58 PRINT" F5...MEM SNAKE      [144] "
60 PRINT" F7...INSTRUCTIONS   [144] "
61 PRINT" F8...EXIT TO UPTIME [144] "
62 PRINT"                     [144] "
64 PRINT"[144]                      "
66 PRINT"PRESS [158]+/[158]- TO SELECT SKILL LEVEL"
68 PRINT"CURRENT SKILL LEVEL IS:":SL=3:SH=10:SC=.:POKE198,0
70 PRINT"[158]"SL
72 GETA$:IFA$="+"THENSL=SL+1:IFSL=10THENSL=1
74 IFA$="-"THENSL=SL-1:IFSL=.THENSL=9
76 IFA$=CHR$(133)THENJK=.:HU=15:D3=1908:GOTO100
78 IFA$=CHR$(134)THENJK=1:HU=7:D3=1908:GOTO100
80 IFA$=CHR$(135)THENJK=2:HU=40:GOTO86
82 IFA$=CHR$(136)THEN316
83 IF A$="[140]" THEN 800
84 GOTO70
86 PRINT"[147]   WOULD YOU LIKE 1, 2, 3, OR 4 ROWS?"
88 PRINT"          ENTER 1, 2, 3, OR 4.":POKE198,0
90 GETA$:IFA$="1"THEND3=1188:GOTO100
92 IFA$="2"THEND3=1428:GOTO100
94 IFA$="3"THEND3=1668:GOTO100
96 IFA$="4"THEND3=1908:GOTO100
98 GOTO90
100 POKE53272,(PEEK(53272)AND240)+14:SYS49152
102 GOSUB304
104 V=53248:POKE2040,15:POKE2041,14:POKE2042,13
106 POKEV+39,0:POKEV+40,7:POKEV+41,7
108 GOSUB300:IFJK=1THEN124
110 FORA=1TO26:L(A)=A:NEXT
112 FORA=1TO7:B=INT(RND(0)*26)+1:C=INT(RND(0)*26)+1
114 D=L(B):L(B)=L(C):L(C)=D:NEXT
116 D=1:C=1:FORA=1188TOD3STEP240:FORB=.TO21STEP7:POKEA+B,L(C):POKEA+B+54272,1
118 S(D)=L(C):D=D+1:C=C+1:NEXT:NEXT
120 IFJK=2THENFORX=1TOSL*1000:NEXT
122 IFJK=2THENFORA=1188TOD3STEP240:FORB=0TO21STEP7:POKEA+B,63:NEXT:NEXT
124 POKE54283,0:POKEV+21,0:POKE2040,15
126 IFD3=1188THENA1=INT(RND(0)*4)+1
128 IFD3=1428THENA1=INT(RND(0)*8)+1
130 IFD3=1668THENA1=INT(RND(0)*12)+1
132 IFD3=1908THENA1=INT(RND(0)*16)+1
134 FORT=1TOINT(RND(0)*45)+2:POKE54273,40:POKE54272,200:POKE54276,33
136 FORX=1TO20:NEXT:POKE54276,0:NEXT
138 IFJK=1THENVT=137:HZ=132:POKEV+0,HZ:POKEV+1,VT:POKEV+21,1
140 ONA1GOTO142,144,146,148,150,152,154,156,158,160,162,164,166,168,170,172
142 G=48:H=54:GOTO174
144 G=105:H=54:GOTO174
146 G=161:H=54:GOTO174
148 G=217:H=54:GOTO174
150 G=48:H=103:GOTO174
152 G=105:H=103:GOTO174
154 G=161:H=103:GOTO174
156 G=217:H=103:GOTO174
158 G=48:H=150:GOTO174
160 G=105:H=150:GOTO174
162 G=161:H=150:GOTO174
164 G=217:H=150:GOTO174
166 G=48:H=198:GOTO174
168 G=105:H=198:GOTO174
170 G=161:H=198:GOTO174
172 G=217:H=198:GOTO174
174 POKEV+4,G:POKEV+5,H:POKEV+21,PEEK(V+21)+4
176 PP=.:POKE198,.:A$=""
178 IFJK=1THEN240
180 GETA$:IFA$=""THEN188
182 IFA$<"A"ORA$>"Z"THEN192
184 W=ASC(A$)-64:IFW=S(A1)THEN206
186 GOTO192
188 PP=PP+1:IFPP=SL*HUTHEN192
190 GOTO178
192 POKEV+21,0:POKE53280,2:POKE54273,60:POKE54272,100:POKE54276,17
194 FORYY=1TO200:NEXT:POKE54273,22:POKE54272,190:FORYY=1TO200:NEXT
196 POKE54276,0:POKE53280,7
198 SH=SH-1:GOSUB304:IFSH=.THEN216
200 IFJK=2THEN116
202 IFJK<>1THENIFINT(RND(.)*10)=2THEN112
204 GOTO126
206 POKE2042,14:GOSUB294:POKEV+21,0:POKE54280,43:POKE54279,188
208 POKE54283,17:FORX=1TO20:POKE53280,1:POKE53280,7:NEXT:POKE54283,0
210 POKE2042,13
212 SC=SC+10:JJ=JJ+10:IFJJ=100THENJJ=.:SL=SL-1:IFSL=.THENSL=1
214 GOSUB304:GOTO202
216 POKE53280,.:POKE53281,.
218 PRINT"[147][129]FINAL SCORE                  FINAL LEVEL"
220 PRINT"[153]    "SC
222 PRINT"                                 [145]"SL
224 PRINT"":A$="GAME OVER ":GOSUB850
226 PRINT"[158]     WOULD YOU LIKE TO PLAY AGAIN?"
228 PRINT"[154]                 (Y/N)
230 [153]"VERIFY SILLY SNAKE              A DECKER GAME"
232 [151]198,0
234 [161]A$:[139]A$[178]"Y"[167][151]53272,21:[153]"LOAD";:[141] 700:[137]20
236 [139]A$[178]"N"[167]800
238 [137]234
240 [158]49813
242 [145][194](14337)[137]246,250,254,258,262,268,274,280
244 [137]284
246 VT[178]VT[171]8:[139]VT[179]45[167]VT[178]VT[170]8
248 [137]284
250 VT[178]VT[170]8:[139]VT[177]230[167]VT[178]VT[171]8
252 [137]284
254 HZ[178]HZ[170]8:[139]HZ[177]250[167]HZ[178]HZ[171]8
256 [137]284
258 HZ[178]HZ[171]8:[139]HZ[179]15[167]HZ[178]HZ[170]8
260 [137]284
262 VT[178]VT[171]8:[139]VT[179]45[167]VT[178]VT[170]8:[137]284
264 HZ[178]HZ[171]8:[139]HZ[179]15[167]HZ[178]HZ[170]8:VT[178]VT[170]8
266 [137]284
268 VT[178]VT[170]8:[139]VT[177]230[167]VT[178]VT[171]8:[137]284
270 HZ[178]HZ[171]8:[139]HZ[179]15[167]HZ[178]HZ[170]8:VT[178]VT[170]8
272 [137]284
274 VT[178]VT[171]8:[139]VT[179]45[167]VT[178]VT[170]8:[137]284
276 HZ[178]HZ[170]8:[139]HZ[177]250[167]HZ[178]HZ[171]8:VT[178]VT[170]8
278 [137]284
280 VT[178]VT[170]8:[139]VT[177]230[167]VT[178]VT[171]8:[137]284
282 HZ[178]HZ[170]8:[139]HZ[177]250[167]HZ[178]HZ[171]8:VT[178]VT[171]8
284 [151]V[170]0,HZ:[151]V[170]1,VT:[151]14339,[194](53278):[158]49911
286 [139][194](14337)[178]9[167]290
288 [137]188
290 [139][194](53278)[178]5[167]206
292 [137]192
294 V3[178]54296:W3[178]54276:A3[178]54277:H3[178]54273:L3[178]54272
296 [129]X3[178]15[164]0[169][171]1:[151]V3,X3:[151]W3,129:[151]A3,15:[151]H3,40:[151]L3,200:[130]
298 [151]W3,0:[151]A3,0
300 [151]54296,15:[151]54277,128:[151]54278,128
302 [151]54284,128:[151]54285,128:[142]
304 [153]""SL
306 [153]"PRINT         "
308 [153]"PRINT"SH""
310 [139]SC[177]99990[167]314
312 [153]""SC
314 [142]
316 [151]53280,6:[151]53281,6:[153]"LOADPRINT":[153][199](14)
318 [153]"                                       "
320 [153]"      RIGHT$(null)(null)(null)(null)(null)LEN(null)RIGHT$(null)(null)(null) ASC(null)(null) (null)RIGHT$(null)(null)(null) (null)(null)ATN(null)VAL     STOP "
322 [153]"ONPRINT                                       STOP WAIT"
324 [153]"  ON                                      "
326 [153]"(null)HICH (null)RIGHT$(null)(null)(null) (null)(null)ATN(null)VAL GAME DO YOU NEED"
328 [153]"INSTRUCTIONS FOR?"
330 [153]"1) (null)(null)(null)VAL ATN (null)(null)ATN(null)VAL":[153]"2) PEEK(null)ATN(null)(null) ATN (null)(null)ATN(null)VAL":[153]"3) (null)VAL(null) (null)(null)ATN(null)VAL"
332 [153]"DEF            VALNTER 1, 2, OR 3":[151]198,0:A$[178]""
334 [161]A$:[139]A$[178]"1"[167]342
336 [139]A$[178]"2"[167]408
338 [139]A$[178]"3"[167]464
340 [137]334
342 [153]"LOADASCIRST SELECT THE SKILL LEVEL BY PRESSING"
344 [153]"ONTHE + AND - KEYS.  (null)HE SKILL LEVEL"
346 [153]"NUMBER WILL CHANGE BETWEEN 1 & 9.  (null)HE"
348 [153]"LOWER THE NUMBER THE HARDER THE LEVEL."
350 [153]"(null)EXT SELECT WHAT GAME YOU WANT TO PLAY"
352 [153]"AND IT WILL THEN START."
354 [153]"(null)N THE SCREEN WILL BE 16 BUSHES.  VALACH"
356 [153]"BUSH WILL HAVE A LETTER ON IT.  (null)HE"
358 [153]"OBJECT IS TO SHOOT (null)RIGHT$(null)(null)(null) (null)(null)ATN(null)VAL WHEN HE"
360 [153]"POPS UP FROM BEHIND A BUSH BY PRESSING"
362 [153]"THAT BUSH'S LETTER.  RIGHT$F YOU WAIT TO"
364 [153]"LONG HE WILL DROP BACK DOWN."
366 [141] 600
368 [153]"LOADATNT THE START OF EACH GAME YOU HAVE 10"
370 [153]"SHOTS.  ATNS LONG AS YOU KEEP HITTING"
372 [153]"(null)RIGHT$(null)(null)(null) (null)(null)ATN(null)VAL YOU WON'T LOSE ANY SHOTS. "
374 [153]"RIGHT$F YOU MISS HIM BY PRESSING A WRONG"
376 [153]"LETTER OR BY WAITING TO LONG YOU WILL"
378 [153]"LOSE ONE SHOT.  (null)HEN ALL 10 SHOTS ARE"
380 [153]"GONE THE GAME WILL END."
382 [153]"VALACH TIME YOU HIT (null)RIGHT$(null)(null)(null) (null)(null)ATN(null)VAL YOU WILL"
384 [153]"SCORE 10 POINTS.  ASCOR EVERY 100 POINTS"
386 [153]"YOU SCORE THE SKILL LEVEL WILL DECREASE"
388 [153]"(GET HARDER)."
390 [153]"(null)HE CURRENT SKILL LEVEL IS LISTED AFTER"
392 [153]"THE GAME."
394 [141] 600
396 [153]"LOAD(null)H YES, JUST TO KEEP THINGS INTERESTING,"
398 [153]"ONEVERY ONCE IN A WHILE ALL THE LETTERS"
400 [153]"ON THE BUSHES WILL CHANGE SO YOU WON'T"
402 [153]"GET TOO USED TO THEM."
404 [141] 600:[153]"LOAD";
406 [137]20
408 [153]"LOADASCIRST SELECT THE SKILL LEVEL BY PRESSING"
410 [153]"ONTHE + AND - KEYS.  (null)HE SKILL LEVEL"
412 [153]"NUMBER WILL CHANGE BETWEEN 1 & 9.  (null)HE"
414 [153]"LOWER THE NUMBER THE HARDER THE LEVEL."
416 [153]"(null)EXT SELECT WHICH GAME YOU WANT TO PLAY"
418 [153]"AND IT WILL START."
420 [153]"(null)N THE SCREEN WILL BE 16 BUSHES.  (null)HE"
422 [153]"OBJECT IS TO SHOOT (null)RIGHT$(null)(null)(null) (null)(null)ATN(null)VAL WHEN HE"
424 [153]"POPS UP BY USING THE JOYSTICK PLUGGED"
426 [153]"INTO PORT TWO TO MOVE THE CROSSHAIR "
428 [153]"OVER HIM AND PRESSING THE FIRE BUTTON."
430 [141] 600
432 [153]"LOADATNT THE START OF EACH GAME YOU HAVE 10"
434 [153]"SHOTS.  ATNS LONG AS YOU KEEP HITTING"
436 [153]"(null)RIGHT$(null)(null)(null) (null)(null)ATN(null)VAL YOU WON'T LOSE ANY SHOTS. "
438 [153]"RIGHT$F YOU MISS HIM BY PRESSING THE FIRE"
440 [153]"BUTTON WHEN THE CROSSHAIR ISN'T ON HIM"
442 [153]"OR BY WAITING TOO LONG YOU WILL LOSE ONE"
444 [153]"ONSHOT.  (null)HEN ALL 10 SHOTS ARE GONE THE"
446 [153]"GAME WILL END."
448 [153]"VALACH TIME YOU HIT (null)RIGHT$(null)(null)(null) (null)(null)ATN(null)VAL YOU WILL"
450 [153]"SCORE 10 POINTS.  ASCOR EVERY 100 POINTS"
452 [153]"YOU SCORE THE SKILL LEVEL WILL DECREASE"
454 [153]"(GET HARDER)."
456 [153]"(null)HE CURRENT SKILL LEVEL IS LISTED AFTER"
458 [153]"THE GAME."
460 [141] 600:[153]"LOAD";
462 [137]20
464 [153]"LOADASCIRST SELECT THE SKILL LEVEL BY PRESSING"
466 [153]"ONTHE + AND - KEYS.  (null)HE SKILL LEVEL"
468 [153]"NUMBER WILL CHANGE BETWEEN 1 & 9.  (null)HE"
470 [153]"LOWER THE NUMBER THE HARDER THE LEVEL."
472 [153]"(null)EXT SELECT WHAT GAME YOU WANT TO PLAY"
474 [153]"AND YOU WILL THEN BE TAKEN TO THE ROW"
476 [153]"OPTION MENU."
478 [153]"(null)ELECT 1, 2, 3, OR 4 ROWS TO USE IN THE"
480 [153]"GAME.  (null)HIS CONTROLS HOW MANY ROWS OF"
482 [153]"BUSHES YOU WILL HAVE TO MEMORIZE.  (null)HE"
484 [153]"LOWER THE NUMBER THE EASIER THE GAME."
486 [141] 600
488 [153]"LOAD(null)N THE SCREEN WILL BE 16 BUSHES. "
490 [153]"STR$EPENDING ON THE AMOUNT OF BUSHES YOU"
492 [153]"SELECTED, A LETTER WILL APPEAR ON SOME"
494 [153]"OF THEM (IF YOU SELECTED 1 ROW THEN"
496 [153]"LETTERS WILL APPEAR ON 4 BUSHES, 2 ROWS"
498 [153]"THEN LETTERS WILL BE ON 8, 3 ON 12,"
500 [153]"4 ON 16).  (null)HE LETTERS WILL BE DISPLAYED"
502 [153]"ONFOR A SHORT PERIOD OF TIME.  (null)VAL(null)(null)(null)RIGHT$(null)VAL"
504 [153]"THEM.  (null)HEY WILL NOW BE REPLACED WITH A"
506 [153]"QUESTION MARK."
508 [141] 600
510 [153]"LOAD(null)HE OBJECT IS TO SHOOT (null)RIGHT$(null)(null)(null) (null)(null)ATN(null)VAL"
512 [153]"WHEN HE POPS UP FROM BEHIND A BUSH BY "
514 [153]"PRESSING THE LETTER THAT USED TO BE ON"
516 [153]"THAT BUSH."
518 [153]"RIGHT$F YOU WAIT TO LONG HE WILL DROP BACK "
520 [153]"DOWN, THOUGH YOU DO HAVE MORE TIME TO"
522 [153]"MAKE A DECISION THEN DURING THE TYPING
524 PRINT"GAME."
526 PRINT"[193]T THE START OF EACH GAME YOU HAVE 10"
528 PRINT"SHOTS.  [193]S LONG AS YOU KEEP HITTING"
530 PRINT"[211][201][204][204][217] [211][206][193][203][197] YOU WON'T LOSE ANY SHOTS. "
532 PRINT"[201]F YOU MISS HIM BY PRESSING A WRONG"
534 PRINT"LETTER OR BY WAITING TO LONG YOU WILL"
536 PRINT"LOSE ONE SHOT AND ALL THE LETTERS WILL"
538 PRINT"BE SHOWN AGAIN.  [215]HEN ALL 10 SHOTS ARE"
540 PRINT"GONE THE GAME WILL END."
542 GOSUB 600
544 PRINT"[147][197]ACH TIME YOU HIT [211][201][204][204][217] [211][206][193][203][197] YOU WILL"
546 PRINT"SCORE 10 POINTS.  [198]OR EVERY 100 POINTS"
548 PRINT"YOU SCORE THE SKILL LEVEL WILL DECREASE"
550 PRINT"(GET HARDER)."
552 PRINT"[212]HE CURRENT SKILL LEVEL IS LISTED AFTER"
554 PRINT"THE GAME."
556 PRINT"[207]H YES, JUST TO KEEP THINGS INTERESTING"
558 PRINT"EVERY ONCE IN A WHILE ALL THE LETTERS"
560 PRINT"ON THE BUSHES WILL CHANGE SO YOU WON'T"
562 PRINT"GET TOO USED TO THEM."
564 GOSUB 600:PRINT"[147]";
566 GOTO20
600 PRINT""TAB(7)"[208]RESS [211]PACEBAR TO [195]ONTINUE"
610 POKE 198,0
620 GET A$:IF A$<>" " THEN 620
630 RETURN
700 FOR C=1 TO 24:PRINT"[158]SILLY SNAKE   SILLY SNAKE  [159] SILLY SNAKE  ";:NEXT
710 PRINT"[158]SILLY SNAKE   S[145]":POKE 56295,1:POKE2023,9
715 PRINT"[145][151]PUBLISHED BY SOFTDISK PUBLISHING, INC.[145]"
720 FORY=54272TO54296:POKEY,.:NEXT
730 RETURN
800 SYS 8*4096+4
850 A=LEN(A$)
860 FOR I=1 TO A/2
870 PRINTTAB(20-I);LEFT$(A$,I);RIGHT$(A$,I)
880 PRINT"[145]";
890 FORZZ=1TO10:NEXT
899 NEXT:RETURN